home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / graf / il7try.exe / IL7TRY / ARCHIVE.Z / AIRes.dll / TEXT / 1011 < prev    next >
Text File  |  1997-05-19  |  3KB  |  195 lines
  1. %%BeginResource: procset Adobe_level2_AI5 1.2 0
  2. %%Title: (Adobe Illustrator (R) Version 5.0 Level 2 Emulation)
  3. %%Version: 1.2 0
  4. %%CreationDate: (04/10/93) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_level2_AI5 25 dict dup begin
  7.     put
  8.     /packedarray where not
  9.     {
  10.         userdict begin
  11.         /packedarray
  12.         {
  13.             array astore readonly
  14.         } bind def
  15.         /setpacking /pop load def
  16.         /currentpacking false def
  17.      end
  18.         0
  19.     } if
  20.     pop
  21.     userdict /defaultpacking currentpacking put true setpacking
  22.     /initialize
  23.     {
  24.         Adobe_level2_AI5 begin
  25.     } bind def
  26.     /terminate
  27.     {
  28.         currentdict Adobe_level2_AI5 eq
  29.         {
  30.          end
  31.         } if
  32.     } bind def
  33.     mark
  34.     /setcustomcolor where not
  35.     {
  36.         /findcmykcustomcolor
  37.         {
  38.             0
  39.             6 packedarray
  40.         } bind def
  41.         /findrgbcustomcolor
  42.         {
  43.             1
  44.             5 packedarray
  45.         } bind def
  46.         /setcustomcolor
  47.         {
  48.             exch 
  49.             aload pop 
  50.             0 eq
  51.             {
  52.                 pop
  53.                 4
  54.                 {
  55.                     4 index mul
  56.                     4 1 roll
  57.                 } repeat
  58.                 5 -1 roll pop
  59.                 setcmykcolor
  60.             }
  61.             {
  62.                 pop
  63.                 3
  64.                 {
  65.                     1 exch sub
  66.                     3 index mul 
  67.                     1 exch sub
  68.                     3 1 roll
  69.                 } repeat
  70.                 4 -1 roll pop
  71.                 setrgbcolor
  72.             } ifelse
  73.         }
  74.         def
  75.     } if
  76.     
  77.     /gt38? mark {version cvr cvx exec} stopped {cleartomark true} {38 gt exch pop} ifelse def
  78.     userdict /deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt put
  79.     userdict /level2?
  80.     systemdict /languagelevel known dup
  81.     {
  82.         pop systemdict /languagelevel get 2 ge
  83.     } if
  84.     put
  85. /level2ScreenFreq
  86. {
  87.  begin
  88.         60
  89.         HalftoneType 1 eq
  90.         {
  91.             pop Frequency
  92.         } if
  93.         HalftoneType 2 eq
  94.         {
  95.             pop GrayFrequency
  96.         } if
  97.         HalftoneType 5 eq
  98.         {
  99.             pop Default level2ScreenFreq
  100.         } if
  101.  end
  102. } bind def
  103. userdict /currentScreenFreq  
  104.     level2? {currenthalftone level2ScreenFreq} {currentscreen pop pop} ifelse put
  105. level2? not
  106.     {
  107.         /setcmykcolor where not
  108.         {
  109.             /setcmykcolor
  110.             {
  111.                 exch .11 mul add exch .59 mul add exch .3 mul add
  112.                 1 exch sub setgray
  113.             } def
  114.         } if
  115.         /currentcmykcolor where not
  116.         {
  117.             /currentcmykcolor
  118.             {
  119.                 0 0 0 1 currentgray sub
  120.             } def
  121.         } if
  122.         /setoverprint where not
  123.         {
  124.             /setoverprint /pop load def
  125.         } if
  126.         /selectfont where not
  127.         {
  128.             /selectfont
  129.             {
  130.                 exch findfont exch
  131.                 dup type /arraytype eq
  132.                 {
  133.                     makefont
  134.                 }
  135.                 {
  136.                     scalefont
  137.                 } ifelse
  138.                 setfont
  139.             } bind def
  140.         } if
  141.         /cshow where not
  142.         {
  143.             /cshow
  144.             {
  145.                 [
  146.                 0 0 5 -1 roll aload pop
  147.                 ] cvx bind forall
  148.             } bind def
  149.         } if
  150.     } if
  151.     cleartomark
  152.     /anyColor?
  153.     {
  154.         add add add 0 ne
  155.     } bind def
  156.     /testColor
  157.     {
  158.         gsave
  159.         setcmykcolor currentcmykcolor
  160.         grestore
  161.     } bind def
  162.     /testCMYKColorThrough
  163.     {
  164.         testColor anyColor?
  165.     } bind def
  166.     userdict /composite?
  167.     level2?
  168.     {
  169.         gsave 1 1 1 1 setcmykcolor currentcmykcolor grestore
  170.         add add add 4 eq
  171.     }
  172.     {
  173.         1 0 0 0 testCMYKColorThrough
  174.         0 1 0 0 testCMYKColorThrough
  175.         0 0 1 0 testCMYKColorThrough
  176.         0 0 0 1 testCMYKColorThrough
  177.         and and and
  178.     } ifelse
  179.     put
  180.     composite? not
  181.     {
  182.         userdict begin
  183.         gsave
  184.         /cyan? 1 0 0 0 testCMYKColorThrough def
  185.         /magenta? 0 1 0 0 testCMYKColorThrough def
  186.         /yellow? 0 0 1 0 testCMYKColorThrough def
  187.         /black? 0 0 0 1 testCMYKColorThrough def
  188.         grestore
  189.         /isCMYKSep? cyan? magenta? yellow? black? or or or def
  190.         /customColor? isCMYKSep? not def
  191.      end
  192.     } if
  193.  end defaultpacking setpacking
  194. %%EndResource
  195.